home *** CD-ROM | disk | FTP | other *** search
/ Golf Digest's Best Places to Play / Golf Digest's Best Places to Play.iso / diamond / dbrs_ibm.dir / 00051_Script_JewelerQ2Script < prev    next >
Text File  |  1995-05-15  |  996b  |  39 lines
  1. on exitFrame
  2.   go to marker(0)+5
  3. end
  4.  
  5. on mouseDown
  6.   set ButtonNum=the clickOn
  7.   if ButtonNum>0 then
  8.     set ButtonName=the name of cast (the castNum of sprite ButtonNum)
  9.     if chars(ButtonName,1,6) = "ToMain" then
  10.       if PressBtn(ButtonNum) then
  11.         AllPuppetsOff
  12.         updateStage
  13.         showCode
  14.         go to marker(0)+6
  15.       end if
  16.     end if
  17.     if chars(ButtonName,1,4) = "Help" then
  18.       if PressBtn(ButtonNum) then
  19.         showHelp
  20.         puppetsprite ButtonNum, true
  21.         set the castNum of sprite ButtonNum to the number of cast (ButtonName)
  22.         puppetsprite ButtonNum, false
  23.       end if
  24.     end if
  25.   end if
  26. end mouseDown
  27.  
  28. on showCode
  29.   puppetsound "FirstCutYeahSound"
  30.   puppetsprite 40, true
  31.   set the castNum of sprite 40 to the number of cast ("Code3")
  32.   updateStage
  33.   repeat while soundbusy(1)
  34.     nothing
  35.   end repeat
  36.   set the castNum of sprite 40 to the number of cast ("HelpDot")
  37.   puppetsprite 40, false
  38. end showCode
  39.